library(googleLanguageR)
## Successfully auto-authenticated via /Users/kevinwang/scpworkshop-53b88279cf76.json
library(tidyverse)
## ── Attaching packages ─────────────────────────────────────────── tidyverse 1.3.0 ──
## ✓ ggplot2 3.3.0 ✓ purrr 0.3.3
## ✓ tibble 3.0.0 ✓ dplyr 0.8.5
## ✓ tidyr 1.0.2 ✓ stringr 1.4.0
## ✓ readr 1.3.1 ✓ forcats 0.5.0
## ── Conflicts ────────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()
library(lubridate)
##
## Attaching package: 'lubridate'
## The following object is masked from 'package:base':
##
## date
g_sentiments = read_rds("data/g_sentiments_cnn_bbc_fox.rds")
g_sentiments %>%
dplyr::filter(year(created_at) == 2020) %>%
ggplot(aes(x = created_at, y = score,
colour = screen_name)) +
geom_line()

g_sentiments %>%
dplyr::filter(year(created_at) == 2020,
str_detect(tolower(text), "covid|virus|coronavirus")) %>%
ggplot(aes(x = created_at, y = abs(score),
colour = screen_name)) +
geom_line(alpha = 0.5) +
geom_smooth(method = "loess")
## `geom_smooth()` using formula 'y ~ x'

g_sentiments %>%
dplyr::filter(year(created_at) == 2020,
str_detect(tolower(text), "covid|virus|coronavirus")) %>%
ggplot(aes(x = created_at, y = magnitude,
colour = screen_name)) +
geom_line(alpha = 0.5) +
geom_smooth(method = "loess")
## `geom_smooth()` using formula 'y ~ x'

r_sentiment = read_rds("data/r_sentiments_cnn_bbc_fox.rds")
p = r_sentiment %>%
dplyr::mutate(corona = str_detect(tolower(text), "covid|virus|coronavirus")) %>%
ggplot(aes(x = score, y = r_sent, text = text,
colour = corona, group = corona)) +
geom_point(alpha = 0.4) +
geom_smooth(method = "lm", se = FALSE) +
ggpubr::stat_cor() +
facet_wrap(~screen_name)
p
## `geom_smooth()` using formula 'y ~ x'

library(plotly)
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
ggplotly(p)
## `geom_smooth()` using formula 'y ~ x'